$file = $ARGV[0];
open BUFF,"< $file" or die "can't open $file1\n";
open(WRBUFF,">xcel_$file.txt");
open(
